home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / ezy_comm / ezy1023.zip / SETUP.ZIP / NEWUSER2.Q-A < prev    next >
Text File  |  1992-09-08  |  1KB  |  75 lines
  1. setvars "*G" 1
  2. if 1 = 0
  3.   goto ASC
  4. endif
  5.  
  6. :ANS
  7. menucmnd 5 NEW_SCRN
  8. setvars "0" 2
  9.  
  10. gosub question1
  11. gosub question2
  12. gosub question3
  13.  
  14. :Loop
  15. if 2 = 1
  16.    gosub question1
  17. endif
  18. if 2 = 2
  19.   gosub question2
  20. endif
  21. if 2 = 3
  22.   gosub question3
  23. endif
  24. changecolour 13 0
  25. gotoxy 2 9
  26. display "Enter number to change, or [Enter] to continue"
  27. getchoice 0123 2 0
  28. if 2 = 0 
  29.   goto End
  30. endif
  31. goto Loop
  32.  
  33.  
  34. goto End
  35.  
  36. :ASC
  37. Display "|What is your home address (number and street name)?|"
  38. Ask 60 3
  39. Display "|What suburb do you live in?|"
  40. Ask 60 4
  41. Display "|Where did you hear about the BBS?|"
  42. Ask 60 5
  43. :End
  44. changecolour 14 0
  45. Display "||Saving responses...||"
  46. PostInfo
  47. OutputAnswer "Address : " 3
  48. OutputAnswer "Suburb  : " 4
  49. OutputAnswer "Where   : " 5
  50. Quit
  51. :Question1
  52. changecolour 13 0
  53. gotoxy 2 9
  54. display "Enter your home address (line 1)              "
  55. changecolor 10 0
  56. gotoxy 19 4
  57. ask 60 3
  58. return question1
  59. :Question2
  60. changecolour 13 0
  61. gotoxy 2 9
  62. display "Enter your home address (line 2)              "
  63. changecolor 10 0
  64. gotoxy 19 5
  65. ask 60 4
  66. return question2
  67. :question3
  68. changecolour 13 0
  69. gotoxy 2 9
  70. display "Where did you hear about the BBS?             "
  71. changecolor 10 0
  72. gotoxy 19 6
  73. ask 60 5
  74. return question3
  75.